home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / soundmac.sit / SoundCap Mover / card_2818.txt < prev    next >
Text File  |  1987-10-25  |  2KB  |  92 lines

  1. -- card: 2818 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2192
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=268 top=263 right=285 bottom=393
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Convert a Sound
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   -- SoundCapToRes takes four arguments:
  23.   -- the name you want to call the sound
  24.   -- the file that contains the SoundCap output (in quotes)
  25.   -- the stack in which you want to put the sound
  26.   -- the base pitch of the sound (60, 72, 79, or 84)
  27.   -- Here we get them from lines of the text field:
  28.   put line 1 of card field "parameters" into args
  29.   put "," & line 2 of card field "parameters" after args
  30.   put "," & line 3 of card field "parameters" after args
  31.   put "," & line 4 of card field "parameters" after args
  32.   do "SoundCapToRes" && args
  33.   -- SoundCapToRes was written by Steve Milne and Ted Kaehler.
  34. end mouseUp
  35.  
  36.  
  37.  
  38. -- part 2 (field)
  39. -- low flags: 00
  40. -- high flags: 2004
  41. -- rect: left=211 top=183 right=258 bottom=493
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 0
  45. -- font id: 3
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: parameters
  50.  
  51.  
  52. -- part 3 (button)
  53. -- low flags: 00
  54. -- high flags: 8003
  55. -- rect: left=267 top=291 right=313 bottom=393
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: Let me hear it
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   put "Play" && line 1 of card field "parameters" into cmd
  67.   put line 3 of card field "parameters" into dest
  68.   go dest
  69.   put cmd
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part contents for background part 4
  75. ----- text -----
  76. It takes four arguments:  the name you want to call the sound, the file that contains the SoundCap output, the stack in which you want to put the sound, and the base pitch of the sound.  Files must be complete path names.  The stack cannot be the current stack or home.  The base pitches of (60, 72, 79, and 84) are for sample rates of (x1, x2, x3, and x4).  
  77.  
  78.      Name of the sound
  79.      SoundCap file
  80.      Destination stack
  81.      BaseNote
  82.  
  83. Fill in the args and click here:
  84.  
  85.  
  86.  
  87. -- part contents for card part 2
  88. ----- text -----
  89. Flute
  90. "HD:XCMDs:Flute"
  91. "HD:XCMDs:Sounds"
  92. 60